Top 10k strings from ZZZ-UNK-Beg.z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   3  alternative answers
   1 score=score+1
   1 s$(n)="x":
   1 s$(n) is "1" if the nth
   1 s$(datanum):
   1 request number of q's
   1 repeat or quit?
   1 questions from data statements  starting at line 9000. You can  add as many extra data items as you like.
   1 questions & answers
   1 q$ and c$ are the
   1 print score
   1 numq>datanum
   1 numq=number of
   1 now decide on correct
   1 multiple choice tester
   1 main program
   1 leave out correctly
   1 initialise variables
   1 if n>1 check for
   1 flash correct answer.
   1 find question
   1 find datanum
   1 find a$(1..5)
   1 datanum=number of pairs of items in the data statements.
   1 datanum=datanum+1
   1 c=number of correct
   1 ask question
   1 a$(n),a$(n):
   1 a$(f)=a$(n)
   1 The program first reads the dataas far as the "end" marker to   see how many item pairs exist.  Then it asks you how many
   1 The main loop calls subroutines to select a question, select 5  alternative answers and finally print the question, check the   response and update the score.  
   1 STOP THE TAPE
   1 PLEASE RUN THE TAPE
   1 It is currently set up
   1 ;"What is the capital of";
   1 ;"This program can ask questions  on the capitals of ";datanum;" countries."
   1 ;"CORRECT!"
   1 ;"BEGIN 5":
   1 ;"BEGIN 5"
   1 ;"  PRESS ANY KEY
   1 *This program will select
   1 ''"How many questions would you    like to attempt?"
   1 '"You got these wrong;"
   1 '"You got ";score;" right."
   1 "You answered ";numq;" questions"
   1 "Spain","Madrid","Portugal","Lisbon","Hungary","Budapest","Poland","Warsaw"
   1 "Qatar","Doha","Romania","Bucharest","Sri Lanka","Colombo","Turkey","Ankara","USSR","Moscow","Vietnam","Hanoi","Zambia","Lusaka"
   1 "Israel","Jerusalem","Lebanon","Beirut","Morocco","Rabat","Norway","Oslo","Oman","Muscat","Peru","Lima"
   1 "France","Paris","W Germany","Bonn","Italy","Rome","Greece","Athens"
   1 "Finland","Helsinki","Guyana","Georgetown","Iran","Teheran","Iraq","Baghdad"
   1 "Enter number.";numq
   1 "England","London","Wales","Cardiff","Scotland","Edinburgh","Ireland","Dublin"
   1 "Austria","Vienna","Belgium","Brussels","Canada","Ottowa","China","Peking","Denmark","Copenhagen","Egypt","Cairo"
   1 "Afghanistan","Kabul","Albania","Tirana","Algeria","Algiers","Angola","Luanda","Argentina","Buenos Aires","Australia","Canberra"
   1  to run again,
   1  to move on.":
   1  to ask questions on
   1  the right answer.
   1  reject correct answer
   1  questions you want.
   1  questions to be asked.
   1  question has been answered
   1  for the qth data pair.
   1  country and correct capital
   1  correctly,"0" if incorrectly    and "x" if not asked.
   1  answered questions.
   1  Capitals.
   1     keyboard insensitive pause.